﻿Imports System.Data.SqlClient

Public Class FrmDichVu

    Sub LoadDV()
        Dim cmd As New SqlCommand("sp_loaddichvu", conn)
        cmd.CommandType = CommandType.StoredProcedure

        Dim da As New SqlDataAdapter(cmd)
        Dim tb As New DataTable

        da.Fill(tb)

        dgvDichVu.DataSource = tb
    End Sub

    Sub LoadcboDVT()
        Dim cmd As New SqlCommand("sp_loadDVT", conn)
        cmd.CommandType = CommandType.StoredProcedure

        Dim da As New SqlDataAdapter(cmd)
        Dim tb As New DataTable

        da.Fill(tb)

        cboDVTDV.DataSource = tb
        cboDVTDV.DisplayMember = "donvitinh"
        cboDVTDV.ValueMember = "donvitinh"
    End Sub
    Private Sub FrmDichVu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadDV()
        conn.Open()
        LoadcboDVT()

    End Sub

    Private Sub cmdThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdThem.Click
        If cmdThem.Text = "Thêm" Then
            If txtMaDV.Text = "" Or txtTenDV.Text = "" Or txtGia.Text = "" Then
                MsgBox("Chưa nhập đầy đủ thông tin")
                Exit Sub
            End If

            If cboDVTDV.SelectedIndex < 0 Then
                MsgBox("Chưa chọn đơn vị tính")
                Exit Sub
            End If

            Dim cmd As New SqlCommand("sp_DichVu_ThemDV", conn)
            cmd.CommandType = CommandType.StoredProcedure

            cmd.Parameters.AddWithValue("@madv", txtMaDV.Text)
            cmd.Parameters.AddWithValue("@tendv", txtTenDV.Text)
            cmd.Parameters.AddWithValue("@gia", CDbl(txtGia.Text))
            cmd.Parameters.AddWithValue("@donvitinh", cboDVTDV.Text)

            Dim kq As Integer = cmd.ExecuteNonQuery
            If kq < 0 Then
                MsgBox("Lỗi không thêm được dịch vụ")
            ElseIf kq = 0 Then
                MsgBox("Không thêm được dịch vụ")
            Else
                MsgBox("Thêm dịch vụ thành công")
                LoadDV()
            End If
        End If

        If cmdThem.Text = "Sửa" Then
            Try
                Dim cmd As New SqlCommand("sp_DichVu_SuaDV", conn)
                cmd.CommandType = CommandType.StoredProcedure

                cmd.Parameters.AddWithValue("@madv", txtMaDV.Text)
                cmd.Parameters.AddWithValue("@tendv", txtTenDV.Text)
                cmd.Parameters.AddWithValue("@gia", CDbl(txtGia.Text))
                cmd.Parameters.AddWithValue("@donvitinh", cboDVTDV.Text)

                Dim kq As Integer = cmd.ExecuteNonQuery
                If kq < 0 Then
                    MsgBox("Lỗi sửa được dịch vụ")
                ElseIf kq = 0 Then
                    MsgBox("Không sửa được dịch vụ")
                Else
                    MsgBox("Sửa dịch vụ thành công")
                    LoadDV()
                End If
            Catch ex As Exception
                MsgBox("Không sửa được đâu đừng cố gắng", , "Thông Báo")
            End Try
        End If




    End Sub

    Private Sub dgvDichVu_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgvDichVu.DoubleClick
        Dim r As DataGridViewRow = dgvDichVu.CurrentRow
        txtMaDV.Text = r.Cells("madichvu").Value
        txtTenDV.Text = r.Cells("tendichvu").Value
        txtGia.Text = r.Cells("gia").Value
        cboDVTDV.Text = r.Cells("donvitinh").Value


        cmdThem.Text = "Sửa"

        txtMaDV.Enabled = False
    End Sub

    Private Sub cmdHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHuy.Click
        cmdThem.Text = "Thêm"
        txtGia.Clear()
        txtMaDV.Clear()
        txtTenDV.Clear()
        cboDVTDV.Text = ""

        txtMaDV.Enabled = True


    End Sub

    Private Sub XoáToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XoáToolStripMenuItem.Click
        Try
            Dim cmd As New SqlCommand("sp_DichVu_Xoa", conn)
            cmd.CommandType = CommandType.StoredProcedure

            cmd.Parameters.AddWithValue("@madv", dgvDichVu.Item("madichvu", dgvDichVu.CurrentRow.Index).Value)
            Dim i As Integer = cmd.ExecuteNonQuery
            If i > 0 Then
                MsgBox("Xóa sản phẩm thành công")
                LoadDV()
                cmdHuy_Click(sender, e)
            End If
        Catch ex As Exception
            MsgBox("Không xoá được vì ràng buộc toàn vẹn")
        End Try
    End Sub
End Class
